(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     94536,       2441]
NotebookOptionsPosition[     91371,       2365]
NotebookOutlinePosition[     91861,       2384]
CellTagsIndexPosition[     91818,       2381]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
*****************************************************************************
*   Notebook written by: Fabian St\[ODoubleDot]ckl      \t\t                  *
*   E-Mail: fstoeckl@diw.de                                                   \
  * 
*****************************************************************************
******************************************************************************\
******************************************************************************\
**********************
*    This notebook uses the Package \"MaTeX\[CloseCurlyDoubleQuote] written \
by Szabolcs Horv\[AAcute]t \
(http://szhorvat.net/pelican/latex-typesetting-in-mathematica.html)    *
******************************************************************************\
******************************************************************************\
**********************\
\>", "Text",
 CellChangeTimes->{{3.803296525642475*^9, 3.803296606317089*^9}, {
  3.8033017724235735`*^9, 3.8033017865893836`*^9}, {3.803312053691663*^9, 
  3.8033122329989185`*^9}, {3.803373517173113*^9, 3.803373523704122*^9}, {
  3.8033736760553365`*^9, 3.8033737270724077`*^9}, {3.840725405565643*^9, 
  3.840725420340614*^9}},ExpressionUUID->"55a23ab3-7ffd-4b2e-88c3-\
247df1e90ec2"],

Cell[BoxData[
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7905163245296135`*^9, 3.7905163620487595`*^9}, {
   3.7926688210939684`*^9, 3.7926688450787497`*^9}, {3.792674067222597*^9, 
   3.7926741434699583`*^9}, {3.792674946898912*^9, 3.792674951098152*^9}, {
   3.7926750283215694`*^9, 3.792675056518182*^9}, {3.7926751056609926`*^9, 
   3.792675162891266*^9}, {3.792675215506275*^9, 3.792675237233518*^9}, {
   3.792677132268908*^9, 3.7926771660318394`*^9}, {3.7961368324341784`*^9, 
   3.796136841151677*^9}, {3.79613691230352*^9, 3.796136912932556*^9}, 
   3.8033733944859343`*^9, {3.803373449405012*^9, 
   3.8033734823000636`*^9}},ExpressionUUID->"a0e9781a-e8ad-45fa-9502-\
31e738a47761"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "MaTeX`"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"NEEDS", " ", "TO", " ", "BE", " ", "INSTALLED", " ", "FIRST"}], 
    " ", "-", " ", 
    RowBox[{"Adjust", " ", "Style", " ", "Parameters"}]}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"MaTeX", ",", 
    RowBox[{"\"\<Preamble\>\"", "\[Rule]", 
     RowBox[{"{", "}"}]}], ",", "\n", 
    RowBox[{"\"\<BasePreamble\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\\\\usepackage{lmodern,exscale}\>\"", ",", 
       "\"\<\\\\usepackage{amsmath,amssymb,xcolor}\>\""}], "}"}]}], ",", 
    RowBox[{"\"\<Preamble\>\"", "\[Rule]", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"\"\<DisplayStyle\>\"", "\[Rule]", "True"}], ",", 
    RowBox[{"ContentPadding", "\[Rule]", "True"}], ",", 
    RowBox[{"LineSpacing", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"1.2`", ",", "0"}], "}"}]}], ",", 
    RowBox[{"FontSize", "\[Rule]", "10"}], ",", 
    RowBox[{"Magnification", "\[Rule]", "1"}], ",", 
    RowBox[{"\"\<LogFileFunction\>\"", "\[Rule]", "None"}], ",", 
    RowBox[{"\"\<TeXFileFunction\>\"", "\[Rule]", "None"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.803375717384923*^9, 
  3.8033757275495043`*^9}},ExpressionUUID->"b763e8e0-f4c8-479a-972f-\
7583c1c19ff3"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 5},ExpressionUUID->"2a881bf7-361e-4e5b-b511-e5cf2a8cdceb"],

Cell[CellGroupData[{

Cell["Data Import +++ requires user input +++", "Section",
 CellChangeTimes->{{3.792503789244561*^9, 3.7925038045594373`*^9}, 
   3.8033738424065704`*^9},ExpressionUUID->"c7d655b8-4f7d-48ca-a58d-\
5b527818a0db"],

Cell[TextData[{
 StyleBox["\[OpenCurlyDoubleQuote]work_book\[CloseCurlyDoubleQuote]", "Code"],
 " is the name of the workbook, i.e., the scenario, used for the fitting \
process;",
 StyleBox[" Range[#,#]", "Code"],
 " defines clean-shares to be included in the fitting process; data input for \
the CES and VES parameters can be copied from \
\[OpenCurlyDoubleQuote]fitting.nb\[CloseCurlyDoubleQuote]"
}], "Text",
 CellChangeTimes->{{3.8032969318467083`*^9, 3.803297081902291*^9}, {
  3.8032971382075114`*^9, 3.803297205459358*^9}, {3.803373876326623*^9, 
  3.803373899030655*^9}},ExpressionUUID->"d653f9ab-8db0-4ed8-9898-\
53f3c5313b67"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"importeddata", "=", 
    RowBox[{"Import", "[", 
     RowBox[{"\"\<C:\\\\Users\\\\...\\\\data-input-file.xlsx\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"\"\<Data\>\"", ",", "\"\<work_book\>\"", ",", 
        RowBox[{"Range", "[", 
         RowBox[{"14", ",", "109"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"143", ",", "142", ",", "140"}], "}"}]}], "}"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesfitfull", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Alpha]", "\[Rule]", "0.29807512362369865`"}], ",", 
     RowBox[{"\[Rho]", "\[Rule]", "0.45755751934216116`"}], ",", 
     RowBox[{"cestfp", "\[Rule]", "0.02841513727820516`"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesfitlower", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Alpha]", "\[Rule]", "0.41155039724949133`"}], ",", 
     RowBox[{"\[Rho]", "\[Rule]", "0.8899525995040721`"}], ",", 
     RowBox[{"cestfp", "\[Rule]", "0.028873046906361527`"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cesfithigher", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Alpha]", "\[Rule]", "0.42303460080587957`"}], ",", 
      RowBox[{"\[Rho]", "\[Rule]", 
       RowBox[{"-", "0.062018499710666794`"}]}], ",", 
      RowBox[{"cestfp", "\[Rule]", "0.02823619961729855`"}]}], "}"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesfitfull", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", "0.5390657197518792`"}], ",", 
     RowBox[{"b", "\[Rule]", "0.670432232807973`"}], ",", 
     RowBox[{"vestfp", "\[Rule]", "0.024872428016016527`"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesfitlower", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", "0.3622518437222711`"}], ",", 
     RowBox[{"b", "\[Rule]", "1.8451282012599628`"}], ",", 
     RowBox[{"vestfp", "\[Rule]", "0.020694157110899735`"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vesfithigher", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Rule]", "0.6061055588017336`"}], ",", 
      RowBox[{"b", "\[Rule]", 
       RowBox[{"-", "0.11817133642049438`"}]}], ",", 
      RowBox[{"vestfp", "\[Rule]", "0.02911978029041821`"}]}], "}"}]}], ";"}],
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"PARAMETERS", " ", "FOR", " ", "THE", " ", "PLOTS"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cm", "=", 
   RowBox[{"72", "/", "2.54"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ipad", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"16", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"16", ",", "5"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"imargins", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"isize", "=", 
   RowBox[{"6.45", "cm"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"isizebroad", "=", 
   RowBox[{"14", "cm"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7913955853782463`*^9, 3.7913956097836423`*^9}, {
   3.7913958914557533`*^9, 3.7913958965750456`*^9}, {3.7913960059112997`*^9, 
   3.791396018436016*^9}, {3.7913962059307404`*^9, 3.7913962122190995`*^9}, {
   3.7913963056634445`*^9, 3.791396323684475*^9}, {3.7913963986127605`*^9, 
   3.79139640506813*^9}, {3.7913964780903063`*^9, 3.7913965094731016`*^9}, {
   3.791396689718411*^9, 3.7913966969248233`*^9}, {3.791396803290907*^9, 
   3.7913968345276937`*^9}, {3.791396876822113*^9, 3.7913969186995077`*^9}, {
   3.791397210078174*^9, 3.7913972478053317`*^9}, {3.7913973648560266`*^9, 
   3.791397371998435*^9}, {3.791397416157961*^9, 3.7913974163269706`*^9}, {
   3.791397514466584*^9, 3.7913975202889166`*^9}, {3.791397779075719*^9, 
   3.791397792856507*^9}, {3.79139788277065*^9, 3.791397909579183*^9}, {
   3.7913992351730027`*^9, 3.7913992394542475`*^9}, {3.791399273101172*^9, 
   3.791399298786641*^9}, 3.791399369544688*^9, {3.7914000886278176`*^9, 
   3.791400091233967*^9}, {3.7914001233158016`*^9, 3.7914001236338196`*^9}, 
   3.7914001641941395`*^9, 3.791400299580883*^9, {3.791400367637776*^9, 
   3.791400383316673*^9}, {3.7927571035949087`*^9, 3.79275711701725*^9}, 
   3.793120379977236*^9, {3.7931204440449*^9, 3.7931204475861025`*^9}, {
   3.7931205349320984`*^9, 3.793120547865838*^9}, {3.7939840547402077`*^9, 
   3.793984061960621*^9}, {3.793984120675979*^9, 3.793984131196581*^9}, 
   3.796027455722553*^9, {3.796027693176134*^9, 3.7960277064808955`*^9}, {
   3.7960277442500553`*^9, 3.7960277479662685`*^9}, {3.796027899432932*^9, 
   3.7960279025141077`*^9}, {3.7960279455335684`*^9, 3.796027946869645*^9}, {
   3.7961330267785077`*^9, 3.796133028478605*^9}, {3.79613315339775*^9, 
   3.7961331537977724`*^9}, {3.7961333249315605`*^9, 3.79613333645522*^9}, {
   3.7961359482896085`*^9, 3.7961359488526406`*^9}, {3.796138721742014*^9, 
   3.7961387420591764`*^9}, {3.796209128418457*^9, 3.7962091300225487`*^9}, {
   3.796290495530676*^9, 3.7962905000621367`*^9}, {3.79629071897215*^9, 
   3.7962907364950123`*^9}, {3.796570968429429*^9, 3.7965709809781475`*^9}, {
   3.7975860985495276`*^9, 3.797586118137648*^9}, {3.797935284080702*^9, 
   3.7979352962844*^9}, {3.799739583114256*^9, 3.79973958616143*^9}, {
   3.799739750556833*^9, 3.799739751996915*^9}, {3.800295372793888*^9, 
   3.800295373611935*^9}, {3.8033738610306015`*^9, 3.803373861715603*^9}, {
   3.8033756750945044`*^9, 3.803375702240057*^9}, {3.803376400443192*^9, 
   3.803376418411217*^9}},ExpressionUUID->"f90b28a5-c1de-4c06-8dc6-\
a3fe2bbbbaa7"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 5},ExpressionUUID->"a9773362-a590-47b8-82e7-42ca58bc953e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dirty", "=", 
   RowBox[{
    RowBox[{"importeddata", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"10", "^", "9"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"clean", "=", 
   RowBox[{
    RowBox[{"importeddata", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"10", "^", "9"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"production", "=", 
   RowBox[{"importeddata", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.79139792666216*^9, 3.791397936960749*^9}, {
  3.79139806075683*^9, 3.7913981062414317`*^9}, {3.7913981720571957`*^9, 
  3.791398183342841*^9}, {3.791398299323475*^9, 3.791398309245043*^9}, {
  3.791399204041222*^9, 3.7913992073454113`*^9}, {3.791399256587228*^9, 
  3.791399258050311*^9}, {3.791399333194609*^9, 3.791399360536173*^9}, {
  3.7913999348940244`*^9, 3.7913999737622476`*^9}, {3.7914000751250453`*^9, 
  3.791400085536641*^9}, {3.7961360677404404`*^9, 3.796136081222212*^9}, {
  3.799739725311389*^9, 
  3.799739728804589*^9}},ExpressionUUID->"8c35edf3-3828-451c-92fe-\
772f084988ac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"clean", ",", "dirty", ",", "production"}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.791399762182146*^9, 3.791399763882243*^9}, {
   3.791400068439663*^9, 3.791400094703165*^9}, {3.791400181285117*^9, 
   3.7914001847993183`*^9}, 3.792527953707786*^9, 3.7925284074147367`*^9, {
   3.7961350543774796`*^9, 3.7961350548665075`*^9}, {3.796135087185356*^9, 
   3.7961350883924255`*^9}, 3.7961351379512596`*^9, 3.796135631003461*^9, 
   3.796137266922803*^9, 3.7961373109373207`*^9, 3.7961376114755106`*^9, 
   3.7961382689741173`*^9, 3.796138386803857*^9, {3.7961385069607296`*^9, 
   3.7961385083948116`*^9}, 3.796138696758585*^9, 3.796138809299022*^9, {
   3.7961391868506165`*^9, 3.796139204233611*^9}, {3.7962053191819477`*^9, 
   3.7962053354538774`*^9}, {3.7962891284629335`*^9, 3.796289130038023*^9}, {
   3.7962891711193733`*^9, 3.7962891721784334`*^9}, {3.7962905873258944`*^9, 
   3.7962905974215307`*^9}, {3.7962906314427443`*^9, 
   3.7962906761117587`*^9}, {3.7963869117630496`*^9, 3.7963869141471863`*^9}, 
   3.796386988428435*^9, {3.796387102642967*^9, 3.796387113285576*^9}, {
   3.796387163109426*^9, 3.796387164126484*^9}, {3.7963872487349954`*^9, 
   3.796387251729714*^9}, {3.7963873252867384`*^9, 3.796387336929167*^9}, {
   3.7965708791843247`*^9, 3.7965708958562784`*^9}, {3.796570937469659*^9, 
   3.7965709492393317`*^9}, 3.796571655471726*^9, {3.796571728064878*^9, 
   3.7965717692712345`*^9}, {3.7966664832327967`*^9, 3.796666498565674*^9}, {
   3.796666566231544*^9, 3.796666571306834*^9}, {3.7966666749737635`*^9, 
   3.7966666833222413`*^9}, {3.7969192071809936`*^9, 
   3.7969192339205227`*^9}, {3.7969192952310295`*^9, 3.796919300935356*^9}, {
   3.796919384456133*^9, 3.7969193937596655`*^9}, {3.79758578843379*^9, 
   3.797585803794669*^9}, {3.7975858372565823`*^9, 3.797585885502342*^9}, {
   3.7997475182201176`*^9, 3.7997475707611227`*^9}, {3.800178380896948*^9, 
   3.800178438619029*^9}, {3.800260827527343*^9, 3.8002608906699543`*^9}, {
   3.8003435592624364`*^9, 3.800343619959908*^9}, {3.8033737989375095`*^9, 
   3.8033737997235107`*^9}, {3.80337567222234*^9, 
   3.8033756730643883`*^9}},ExpressionUUID->"b586f43f-7a3f-40ec-aca6-\
0cd207bfcaac"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 5},ExpressionUUID->"eb23d589-af86-4077-ba37-2ef588f4b5db"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plots", "Section",
 CellChangeTimes->{{3.803375631781027*^9, 
  3.8033756541803083`*^9}},ExpressionUUID->"c7aeee74-f5a2-4672-a22f-\
7571c97510ed"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"originaldataforplot", "=", 
    RowBox[{"Transpose", "@", 
     RowBox[{"{", 
      RowBox[{"dirty", ",", "clean"}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"originaldataplot", "=", 
    RowBox[{"ListPlot", "[", 
     RowBox[{"originaldataforplot", ",", 
      RowBox[{"FrameStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Black", ",", "9"}], "]"}]}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "31"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "100"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Black", ",", 
         RowBox[{"PointSize", "[", "0.02", "]"}]}], "]"}]}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"ImagePadding", "\[Rule]", "ipad"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "isize"}], ",", 
      RowBox[{"ImageMargins", "\[Rule]", "imargins"}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"PointLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Directive", "[", 
             RowBox[{"Black", ",", 
              RowBox[{"PointSize", "[", "0.017", "]"}]}], "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<  simulation\>\"", ",", 
              RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"0.76", ",", "0.9"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cesfittedplotfull", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"production", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "/", "cestfp"}], ")"}], "^",
                "\[Rho]"}], " ", "-", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x", "*", 
                  RowBox[{"(", 
                   RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "^", 
                "\[Rho]"}]}]}], ")"}], "/", "\[Alpha]"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}]}], "/.", 
       "cesfitfull"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"Min", "[", "dirty", "]"}], ",", 
        RowBox[{"Max", "[", "dirty", "]"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{
         RowBox[{"GrayLevel", "[", "0.5", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}]}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"GrayLevel", "[", "0.5", "]"}], ",", 
               RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}], ",", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", 
               RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}], ",", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", "Dashed", ",", 
               RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SubscriptBox[\(fit\), \(\(\\\ \)\(full\)\)]\)\>\"", 
               ",", 
               RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SubscriptBox[\(fit\), \(\(\\\ \)\(lower\)\)]\)\>\"", 
               ",", 
               RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<pred\!\(\*SubscriptBox[\(.\), \(\(\\\ \
\)\(lower\)\)]\)\>\"", ",", 
               RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"25", ",", "2"}], "}"}]}], ",", 
           RowBox[{"Spacings", "\[Rule]", "0.3"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.74", ",", "0.69"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cesfittedplotlower", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"(", 
          RowBox[{"1", "/", 
           RowBox[{"10", "^", "9"}]}], ")"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"production", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "/", "cestfp"}], ")"}], "^",
                "\[Rho]"}], " ", "-", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x", "*", 
                  RowBox[{"(", 
                   RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "^", 
                "\[Rho]"}]}]}], ")"}], "/", "\[Alpha]"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}]}], "/.", 
       "cesfitlower"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"Min", "[", "dirty", "]"}], ",", 
        RowBox[{"Max", "[", "dirty", "]"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{
         RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", "Dashed", ",", 
         RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}]}]}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cesfittedplotlower2", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"production", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "/", "cestfp"}], ")"}], "^",
                "\[Rho]"}], " ", "-", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x", "*", 
                  RowBox[{"(", 
                   RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "^", 
                "\[Rho]"}]}]}], ")"}], "/", "\[Alpha]"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}]}], "/.", 
       "cesfitlower"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"dirty", "[", 
         RowBox[{"[", "51", "]"}], "]"}], ",", 
        RowBox[{"Max", "[", "dirty", "]"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{
         RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}]}]}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesfullplot", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
    "originaldataplot", ",", "cesfittedplotfull", ",", "cesfittedplotlower", 
     ",", "cesfittedplotlower2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cesfullplotlab", "=", 
    RowBox[{"Labeled", "[", 
     RowBox[{"cesfullplot", ",", 
      RowBox[{"MaTeX", "@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\\\\textrm{dirty inputs}~(D_{\\\\iota})\>\"", ",", 
         "\"\<\\\\textrm{clean inputs}~(C_{\\\\iota})\>\""}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"Bottom", ",", "Left"}], "}"}], ",", 
      RowBox[{"Spacings", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"RotateLabel", "\[Rule]", "True"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vesfittedplotfull", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"production", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "/", "vestfp"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "*", 
                 RowBox[{"10", "^", "9"}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"-", "a"}], ")"}]}], ")"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"1", "/", 
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], " ", "-", " ", 
          RowBox[{"(", 
           RowBox[{"b", " ", "a", " ", 
            RowBox[{"(", 
             RowBox[{"x", "*", 
              RowBox[{"10", "^", "9"}]}], ")"}]}], ")"}]}], ")"}]}], "/.", 
       "vesfitfull"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"Min", "[", "dirty", "]"}], ",", 
        RowBox[{"Max", "[", "dirty", "]"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{
         RowBox[{"GrayLevel", "[", "0.5", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}]}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"GrayLevel", "[", "0.5", "]"}], ",", 
               RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}], ",", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", 
               RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}], ",", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", "Dashed", ",", 
               RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SubscriptBox[\(fit\), \(\(\\\ \)\(full\)\)]\)\>\"", 
               ",", 
               RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SubscriptBox[\(fit\), \(\(\\\ \)\(lower\)\)]\)\>\"", 
               ",", 
               RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<pred\!\(\*SubscriptBox[\(.\), \(\(\\\ \
\)\(lower\)\)]\)\>\"", ",", 
               RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"25", ",", "2"}], "}"}]}], ",", 
           RowBox[{"Spacings", "\[Rule]", "0.3"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.74", ",", "0.69"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vesfittedplotlower", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"production", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "/", "vestfp"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "*", 
                 RowBox[{"10", "^", "9"}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"-", "a"}], ")"}]}], ")"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"1", "/", 
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], " ", "-", " ", 
          RowBox[{"(", 
           RowBox[{"b", " ", "a", " ", 
            RowBox[{"(", 
             RowBox[{"x", "*", 
              RowBox[{"10", "^", "9"}]}], ")"}]}], ")"}]}], ")"}]}], "/.", 
       "vesfitlower"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"Min", "[", "dirty", "]"}], ",", 
        RowBox[{"Max", "[", "dirty", "]"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{
         RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", "Dashed", ",", 
         RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}]}]}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vesfittedplotlower2", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"production", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "/", "vestfp"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "*", 
                 RowBox[{"10", "^", "9"}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"-", "a"}], ")"}]}], ")"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"1", "/", 
             RowBox[{"(", 
              RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], " ", "-", " ", 
          RowBox[{"(", 
           RowBox[{"b", " ", "a", " ", 
            RowBox[{"(", 
             RowBox[{"x", "*", 
              RowBox[{"10", "^", "9"}]}], ")"}]}], ")"}]}], ")"}]}], "/.", 
       "vesfitlower"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"dirty", "[", 
         RowBox[{"[", "51", "]"}], "]"}], ",", 
        RowBox[{"Max", "[", "dirty", "]"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{
         RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.01", "]"}]}], "]"}]}]}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesfullplot", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
    "originaldataplot", ",", "vesfittedplotfull", ",", "vesfittedplotlower", 
     ",", "vesfittedplotlower2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vesfullplotlab", "=", 
    RowBox[{"Labeled", "[", 
     RowBox[{"vesfullplot", ",", 
      RowBox[{"MaTeX", "@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\\\\textrm{dirty inputs}~(D_{\\\\iota})\>\"", ",", 
         "\"\<\\\\textrm{clean inputs}~(C_{\\\\iota})\>\""}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"Bottom", ",", "Left"}], "}"}], ",", 
      RowBox[{"Spacings", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"RotateLabel", "\[Rule]", "True"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"supergrid", "=", 
   RowBox[{"Grid", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"cesfullplotlab", ",", "vesfullplotlab"}], "}"}], "}"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7961323265984592`*^9, 3.796132339513198*^9}, {
   3.7961323976535234`*^9, 3.7961324145434895`*^9}, {3.7961324745849237`*^9, 
   3.7961324777271037`*^9}, {3.7961330815526404`*^9, 3.796133105975037*^9}, {
   3.796135168688018*^9, 3.796135213959607*^9}, {3.796135276648193*^9, 
   3.796135366011304*^9}, {3.7961354484040165`*^9, 3.7961354548343844`*^9}, {
   3.7961356044579425`*^9, 3.7961356186397533`*^9}, {3.7961358603915806`*^9, 
   3.796135865327863*^9}, {3.79613591894693*^9, 3.7961359306876016`*^9}, {
   3.7961359752371497`*^9, 3.7961359826825757`*^9}, {3.7961360993652496`*^9, 
   3.7961361643559666`*^9}, {3.79613708311429*^9, 3.796137084077345*^9}, {
   3.796137203091152*^9, 3.7961372095295205`*^9}, {3.7961372844788074`*^9, 
   3.796137294107358*^9}, {3.79613737072274*^9, 3.7961373974282675`*^9}, {
   3.7961374616089387`*^9, 3.796137462075966*^9}, {3.796137495950903*^9, 
   3.7961375297898383`*^9}, {3.7961377233899117`*^9, 
   3.7961377420319777`*^9}, {3.7961378034354897`*^9, 
   3.7961378038265123`*^9}, {3.7961379943154078`*^9, 
   3.7961379972655764`*^9}, {3.796138225747645*^9, 3.7961383088323975`*^9}, {
   3.7961383427203355`*^9, 3.7961383662426805`*^9}, {3.796138449017415*^9, 
   3.7961384490424166`*^9}, {3.796204257205789*^9, 3.7962042703825407`*^9}, {
   3.79620520817365*^9, 3.796205212978924*^9}, {3.7962053167408085`*^9, 
   3.796205317385845*^9}, {3.7962053482215977`*^9, 3.7962053505627317`*^9}, {
   3.796205659387113*^9, 3.7962056677055893`*^9}, {3.7962057655621862`*^9, 
   3.7962058383503494`*^9}, {3.7962058940205336`*^9, 3.796205905930215*^9}, {
   3.796206105112607*^9, 3.7962061854082003`*^9}, {3.796206314998612*^9, 
   3.7962063176697645`*^9}, {3.796206348065503*^9, 3.7962064811361146`*^9}, {
   3.796206512646917*^9, 3.796206522643489*^9}, {3.7962065590095687`*^9, 
   3.796206594184581*^9}, 3.7962066961974154`*^9, {3.79620684244878*^9, 
   3.796206882280059*^9}, {3.7962071278101025`*^9, 3.796207136852619*^9}, {
   3.7962071726776686`*^9, 3.7962072049145126`*^9}, {3.7962072711373*^9, 
   3.7962072861611595`*^9}, {3.7962073574152346`*^9, 3.796207376579331*^9}, {
   3.7962080434724016`*^9, 3.7962080859018283`*^9}, {3.7962081208448267`*^9, 
   3.7962081650523553`*^9}, {3.7962081989922967`*^9, 
   3.7962082280969615`*^9}, {3.7962083264015837`*^9, 
   3.7962085154783983`*^9}, {3.7962085861154385`*^9, 
   3.7962085879295425`*^9}, {3.796208621741476*^9, 3.796208672167361*^9}, {
   3.796208731646763*^9, 3.796208731967781*^9}, {3.7962087653306894`*^9, 
   3.7962091067052145`*^9}, {3.7962091426622715`*^9, 
   3.7962091502767067`*^9}, {3.7962093632858906`*^9, 
   3.7962094008930416`*^9}, {3.796209755699335*^9, 3.796209896747403*^9}, {
   3.7962099441301126`*^9, 3.7962100998180175`*^9}, {3.796210133519945*^9, 
   3.7962102058690834`*^9}, {3.796210322935779*^9, 3.796210344121991*^9}, {
   3.796210429805892*^9, 3.796210430840951*^9}, {3.7962104813208385`*^9, 
   3.7962105533589587`*^9}, {3.7962105928482175`*^9, 
   3.7962107018484516`*^9}, {3.79621074831411*^9, 3.7962109227320857`*^9}, {
   3.7962109678656673`*^9, 3.7962111088387303`*^9}, {3.7962112556117363`*^9, 
   3.796211313389041*^9}, {3.796211348305038*^9, 3.7962114532660418`*^9}, {
   3.7962116036056404`*^9, 3.7962116583397713`*^9}, {3.7962118747951517`*^9, 
   3.7962118927821803`*^9}, {3.796212105266198*^9, 3.7962121061961994`*^9}, {
   3.796212233466014*^9, 3.7962122385921097`*^9}, 3.796212271830014*^9, {
   3.796212309127961*^9, 3.796212355541074*^9}, {3.7962125414398174`*^9, 
   3.7962126424715962`*^9}, {3.7962129075444794`*^9, 
   3.7962129304346113`*^9}, {3.7963873466256437`*^9, 
   3.7963873544058857`*^9}, {3.7963880344651537`*^9, 3.796388036806288*^9}, {
   3.796388068232085*^9, 3.7963880695541606`*^9}, 3.796572028946088*^9, 
   3.7965721124428635`*^9, {3.796572352027567*^9, 3.7965723828263283`*^9}, {
   3.796572458410651*^9, 3.7965724653720493`*^9}, {3.7965727385006714`*^9, 
   3.79657278689844*^9}, {3.7965729018230133`*^9, 3.796572932415763*^9}, {
   3.7965730288872805`*^9, 3.7965730724777737`*^9}, {3.7965733016458817`*^9, 
   3.796573338421985*^9}, {3.796573603180128*^9, 3.7965736662247343`*^9}, {
   3.7965737256851354`*^9, 3.796573903196288*^9}, {3.7965740144256506`*^9, 
   3.7965740385570307`*^9}, {3.796574070402852*^9, 3.796574123470887*^9}, {
   3.7965741677264185`*^9, 3.7965742129290037`*^9}, {3.7965743353700075`*^9, 
   3.796574407170114*^9}, {3.796574440967047*^9, 3.796574593031745*^9}, {
   3.7965746281557536`*^9, 3.7965746597325597`*^9}, {3.796574711394515*^9, 
   3.7965747683927746`*^9}, {3.7965748143094015`*^9, 3.79657481813562*^9}, {
   3.7965748626441655`*^9, 3.796574970485334*^9}, {3.7965750102366076`*^9, 
   3.796575022728322*^9}, {3.7965750910252285`*^9, 3.7965750928153305`*^9}, {
   3.7965751249141665`*^9, 3.7965753022923117`*^9}, {3.796575335629219*^9, 
   3.7965754076563387`*^9}, {3.7965754416992855`*^9, 3.796575442353323*^9}, {
   3.7965755494914513`*^9, 3.7965755526776333`*^9}, {3.7965755892377243`*^9, 
   3.7965757132248163`*^9}, {3.7965757873130536`*^9, 3.7965757899522047`*^9}, 
   3.7965758203049407`*^9, {3.796575856393005*^9, 3.796575858263112*^9}, {
   3.796575985913413*^9, 3.796575989443615*^9}, {3.7965760982208366`*^9, 
   3.7965761114535933`*^9}, {3.7965761632095537`*^9, 3.796576291611898*^9}, {
   3.796576409182623*^9, 3.796576425287544*^9}, {3.7965764784075823`*^9, 
   3.796576511007447*^9}, {3.7965766197356653`*^9, 3.7965767180782905`*^9}, {
   3.796576754631381*^9, 3.7965767806818714`*^9}, {3.796576850487864*^9, 
   3.796576877623416*^9}, {3.796576970934753*^9, 3.796577000293432*^9}, {
   3.796577125887616*^9, 3.796577175279441*^9}, {3.796577265735615*^9, 
   3.796577391869829*^9}, {3.7965774384974957`*^9, 3.7965774757066245`*^9}, {
   3.796577523836377*^9, 3.79657754049533*^9}, {3.7965776146155696`*^9, 
   3.7965778156450677`*^9}, {3.7965778816458426`*^9, 3.796577961020383*^9}, {
   3.796578070574649*^9, 3.796578165970105*^9}, {3.796578226596573*^9, 
   3.7965783055580893`*^9}, {3.7965788263978796`*^9, 3.796578827269929*^9}, {
   3.7965788705054026`*^9, 3.7965790976403933`*^9}, {3.796579166269319*^9, 
   3.79657919793013*^9}, {3.7965798075880003`*^9, 3.796579884945425*^9}, {
   3.796580268867384*^9, 3.796580270040451*^9}, {3.7965803026873183`*^9, 
   3.796580365581916*^9}, {3.7965810075186324`*^9, 3.7965811340618706`*^9}, {
   3.796581367743236*^9, 3.796581370271381*^9}, {3.7966568422243624`*^9, 
   3.7966568457845664`*^9}, {3.7966660752294607`*^9, 
   3.7966661344178457`*^9}, {3.7966669231639595`*^9, 3.796666930134358*^9}, {
   3.796666980761254*^9, 3.7966669835944157`*^9}, {3.8001798020680084`*^9, 
   3.800179805483013*^9}, {3.8003474758129063`*^9, 3.80034749371393*^9}, {
   3.800351856057438*^9, 3.8003518572505054`*^9}, {3.8020896303035727`*^9, 
   3.8020896955623055`*^9}, {3.8020897431350265`*^9, 3.802089748059308*^9}, {
   3.802089788396615*^9, 3.802089789732692*^9}, {3.802089830757038*^9, 
   3.8020898310460544`*^9}, {3.803374011555355*^9, 3.803374012284397*^9}, {
   3.80337404328617*^9, 3.8033741369055247`*^9}, 3.80337557624185*^9, {
   3.8033756113688593`*^9, 3.8033756174002047`*^9}, {3.8033762755830107`*^9, 
   3.8033762763230124`*^9}},ExpressionUUID->"71ce0470-6696-4522-a223-\
70d43d888ab2"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 5},ExpressionUUID->"560dfafc-657c-49d5-876d-3b06d2838198"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MSE (wrt output) and MAE (wrt predicted clean inputs)", "Section",
 CellChangeTimes->{{3.8033757886189976`*^9, 3.803375789587053*^9}, {
  3.803375960092805*^9, 
  3.8033760156449823`*^9}},ExpressionUUID->"1cfde691-f46b-4494-b2ac-\
d3acaf482ba0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cescleanpred", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"production", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "/", "cestfp"}], ")"}], "^", 
              "\[Rho]"}], " ", "-", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
              RowBox[{"x", "^", "\[Rho]"}]}]}], ")"}], "/", "\[Alpha]"}], 
          ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}], "/.", "cesfitfull"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"10", "^", "9"}], ")"}], "*", 
        RowBox[{"data", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cescleandiff", "=", 
    RowBox[{"cescleanpred", "-", 
     RowBox[{"clean", "*", 
      RowBox[{"(", 
       RowBox[{"10", "^", "9"}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cescleanpredlower", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"production", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "/", "cestfp"}], ")"}], "^", 
              "\[Rho]"}], " ", "-", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
              RowBox[{"x", "^", "\[Rho]"}]}]}], ")"}], "/", "\[Alpha]"}], 
          ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}], "/.", "cesfitlower"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"10", "^", "9"}], ")"}], "*", 
        RowBox[{"data", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cescleandifflower", "=", 
    RowBox[{"cescleanpredlower", "-", 
     RowBox[{"clean", "*", 
      RowBox[{"(", 
       RowBox[{"10", "^", "9"}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cescleanpredhigher", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"production", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "/", "cestfp"}], ")"}], "^", 
              "\[Rho]"}], " ", "-", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
              RowBox[{"x", "^", "\[Rho]"}]}]}], ")"}], "/", "\[Alpha]"}], 
          ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}], "/.", 
       "cesfithigher"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"10", "^", "9"}], ")"}], "*", 
        RowBox[{"data", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cescleandiffhigher", "=", 
    RowBox[{"cescleanpredhigher", "-", 
     RowBox[{"clean", "*", 
      RowBox[{"(", 
       RowBox[{"10", "^", "9"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vescleanpred", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"production", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "/", "vestfp"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"-", "a"}], ")"}]}], ")"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], " ", "-", " ", 
        RowBox[{"(", 
         RowBox[{"b", " ", "a", " ", "x"}], ")"}]}], "/.", "vesfitfull"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"10", "^", "9"}], ")"}], "*", 
        RowBox[{"data", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vescleandiff", "=", 
    RowBox[{"vescleanpred", "-", 
     RowBox[{"clean", "*", 
      RowBox[{"(", 
       RowBox[{"10", "^", "9"}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vescleanpredlower", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"production", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "/", "vestfp"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"-", "a"}], ")"}]}], ")"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], " ", "-", " ", 
        RowBox[{"(", 
         RowBox[{"b", " ", "a", " ", "x"}], ")"}]}], "/.", "vesfitlower"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"10", "^", "9"}], ")"}], "*", 
        RowBox[{"data", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vescleandifflower", "=", 
    RowBox[{"vescleanpredlower", "-", 
     RowBox[{"clean", "*", 
      RowBox[{"(", 
       RowBox[{"10", "^", "9"}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vescleanpredhigher", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"production", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "/", "vestfp"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"-", "a"}], ")"}]}], ")"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], " ", "-", " ", 
        RowBox[{"(", 
         RowBox[{"b", " ", "a", " ", "x"}], ")"}]}], "/.", "vesfithigher"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"10", "^", "9"}], ")"}], "*", 
        RowBox[{"data", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vescleandiffhigher", "=", 
    RowBox[{"vescleanpredhigher", "-", 
     RowBox[{"clean", "*", 
      RowBox[{"(", 
       RowBox[{"10", "^", "9"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesMAE", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", "cescleandiff", "]"}]}], ")"}], "]"}], "/", 
    RowBox[{"Length", "[", "clean", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesMAElowerTOTAL", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", "cescleandifflower", "]"}]}], ")"}], "]"}], "/", 
    RowBox[{"Length", "[", "clean", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesMAElowerHigher", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"cescleandifflower", "[", 
         RowBox[{"[", 
          RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}], ")"}], "]"}], 
    "/", 
    RowBox[{"Length", "[", 
     RowBox[{"clean", "[", 
      RowBox[{"[", 
       RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesMAElower", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"cescleandifflower", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "51"}], "]"}], "]"}], "]"}]}], ")"}], "]"}], "/", 
    RowBox[{"Length", "[", 
     RowBox[{"clean", "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "51"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesMAEhigher", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"cescleandiffhigher", "[", 
         RowBox[{"[", 
          RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}], ")"}], "]"}], 
    "/", 
    RowBox[{"Length", "[", 
     RowBox[{"clean", "[", 
      RowBox[{"[", 
       RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7963898530968037`*^9, 3.796389943359379*^9}, {
   3.79639673851091*^9, 3.7963967775081406`*^9}, {3.796398488673025*^9, 
   3.796398534657655*^9}, {3.7966661957513537`*^9, 3.7966662036698065`*^9}, {
   3.7966662367226973`*^9, 3.7966663978849154`*^9}, {3.7966667910364017`*^9, 
   3.7966667970947485`*^9}, {3.796667083907153*^9, 3.7966670921286235`*^9}, {
   3.7969153772759356`*^9, 3.7969153910517235`*^9}, {3.800347475572892*^9, 
   3.800347493565922*^9}, {3.8033750786073875`*^9, 3.8033752958138103`*^9}, {
   3.8033757937792926`*^9, 3.8033757958124084`*^9}, {3.8033758643903313`*^9, 
   3.8033759208565607`*^9}, 
   3.8033760498189373`*^9},ExpressionUUID->"daef3f0d-3e25-4a4a-b8e4-\
5a620b176787"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vesMAE", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", "vescleandiff", "]"}]}], ")"}], "]"}], "/", 
    RowBox[{"Length", "[", "clean", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesMAElowerTOTAL", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", "vescleandifflower", "]"}]}], ")"}], "]"}], "/", 
    RowBox[{"Length", "[", "clean", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesMAElowerHIGHER", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"vescleandifflower", "[", 
         RowBox[{"[", 
          RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}], ")"}], "]"}], 
    "/", 
    RowBox[{"Length", "[", 
     RowBox[{"clean", "[", 
      RowBox[{"[", 
       RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesMAElower", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"vescleandifflower", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "51"}], "]"}], "]"}], "]"}]}], ")"}], "]"}], "/", 
    RowBox[{"Length", "[", 
     RowBox[{"clean", "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "51"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesMAEhigher", "=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"10", "^", "9"}], ")"}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"vescleandiffhigher", "[", 
         RowBox[{"[", 
          RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}], ")"}], "]"}], 
    "/", 
    RowBox[{"Length", "[", 
     RowBox[{"clean", "[", 
      RowBox[{"[", 
       RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7969154393424854`*^9, 3.7969154461428747`*^9}, {
  3.8003474755878935`*^9, 3.800347493577922*^9}, {3.8033753012641225`*^9, 
  3.8033753607965274`*^9}},ExpressionUUID->"bd60c39c-8b4a-425b-a45e-\
0550acdb95c5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dirty", "=", 
   RowBox[{"importeddata", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"clean", "=", 
   RowBox[{"importeddata", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",ExpressionUUI\
D->"e283d113-40d2-4fe2-90be-13d8361a97bb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cesMSE", "=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"cestfp", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", " ", 
                  RowBox[{"clean", "^", "\[Rho]"}]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
                  RowBox[{"dirty", "^", "\[Rho]"}]}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}]}], ")"}], "/.", 
           "cesfitfull"}], ")"}], "-", "production"}], ")"}], "^", "2"}], 
      "]"}], "/", 
     RowBox[{"Length", "[", "clean", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesMSElower", "=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"cestfp", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", " ", 
                  RowBox[{
                   RowBox[{"clean", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ";;", "51"}], "]"}], "]"}], "^", 
                   "\[Rho]"}]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
                  RowBox[{
                   RowBox[{"dirty", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ";;", "51"}], "]"}], "]"}], "^", 
                   "\[Rho]"}]}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}]}], ")"}], "/.", 
           "cesfitlower"}], ")"}], "-", 
         RowBox[{"production", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "51"}], "]"}], "]"}]}], ")"}], "^", "2"}], 
      "]"}], "/", 
     RowBox[{"Length", "[", 
      RowBox[{"clean", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "51"}], "]"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesMSEhigher", "=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"cestfp", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", " ", 
                  RowBox[{
                   RowBox[{"clean", "[", 
                    RowBox[{"[", 
                    RowBox[{"52", ";;", "96"}], "]"}], "]"}], "^", 
                   "\[Rho]"}]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
                  RowBox[{
                   RowBox[{"dirty", "[", 
                    RowBox[{"[", 
                    RowBox[{"52", ";;", "96"}], "]"}], "]"}], "^", 
                   "\[Rho]"}]}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}]}], ")"}], "/.", 
           "cesfithigher"}], ")"}], "-", 
         RowBox[{"production", "[", 
          RowBox[{"[", 
           RowBox[{"52", ";;", "96"}], "]"}], "]"}]}], ")"}], "^", "2"}], 
      "]"}], "/", 
     RowBox[{"Length", "[", 
      RowBox[{"clean", "[", 
       RowBox[{"[", 
        RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cesMSElowerTOTAL", "=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"cestfp", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", " ", 
                  RowBox[{"clean", "^", "\[Rho]"}]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
                  RowBox[{"dirty", "^", "\[Rho]"}]}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}]}], ")"}], "/.", 
           "cesfitlower"}], ")"}], "-", "production"}], ")"}], "^", "2"}], 
      "]"}], "/", 
     RowBox[{"Length", "[", "clean", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cesMSElowerHIGHER", "=", 
    RowBox[{"Total", "[", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"cestfp", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Alpha]", " ", 
                   RowBox[{
                    RowBox[{"clean", "[", 
                    RowBox[{"[", 
                    RowBox[{"52", ";;", "96"}], "]"}], "]"}], "^", 
                    "\[Rho]"}]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
                   RowBox[{
                    RowBox[{"dirty", "[", 
                    RowBox[{"[", 
                    RowBox[{"52", ";;", "96"}], "]"}], "]"}], "^", 
                    "\[Rho]"}]}]}], ")"}], "^", 
                RowBox[{"(", 
                 RowBox[{"1", "/", "\[Rho]"}], ")"}]}], ")"}]}], ")"}], "/.", 
            "cesfitlower"}], ")"}], "-", 
          RowBox[{"production", "[", 
           RowBox[{"[", 
            RowBox[{"52", ";;", "96"}], "]"}], "]"}]}], ")"}], "^", "2"}], 
       "]"}], "/", 
      RowBox[{"Length", "[", 
       RowBox[{"clean", "[", 
        RowBox[{"[", 
         RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesMSE", "=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"clean", " ", "vestfp", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"dirty", "/", "clean"}], ")"}], "^", "a"}], ")"}], 
             " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"(", 
                  RowBox[{"a", " ", "b", " ", 
                   RowBox[{"(", 
                    RowBox[{"dirty", "/", "clean"}], ")"}]}], ")"}]}], ")"}], 
               "^", 
               RowBox[{"(", 
                RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], ")"}], "/.", 
           "vesfitfull"}], ")"}], "-", "production"}], ")"}], "^", "2"}], 
      "]"}], "/", 
     RowBox[{"Length", "[", "clean", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesMSElower", "=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"clean", "[", 
              RowBox[{"[", 
               RowBox[{"1", ";;", "51"}], "]"}], "]"}], " ", "vestfp", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"dirty", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ";;", "51"}], "]"}], "]"}], "/", 
                 RowBox[{"clean", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ";;", "51"}], "]"}], "]"}]}], ")"}], "^", 
               "a"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"(", 
                  RowBox[{"a", " ", "b", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"dirty", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ";;", "51"}], "]"}], "]"}], "/", 
                    RowBox[{"clean", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ";;", "51"}], "]"}], "]"}]}], ")"}]}], 
                  ")"}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], ")"}], "/.", 
           "vesfitlower"}], ")"}], "-", 
         RowBox[{"production", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "51"}], "]"}], "]"}]}], ")"}], "^", "2"}], 
      "]"}], "/", 
     RowBox[{"Length", "[", 
      RowBox[{"clean", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "51"}], "]"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesMSEhigher", "=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"clean", "[", 
              RowBox[{"[", 
               RowBox[{"52", ";;", "96"}], "]"}], "]"}], " ", "vestfp", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"dirty", "[", 
                  RowBox[{"[", 
                   RowBox[{"52", ";;", "96"}], "]"}], "]"}], "/", 
                 RowBox[{"clean", "[", 
                  RowBox[{"[", 
                   RowBox[{"52", ";;", "96"}], "]"}], "]"}]}], ")"}], "^", 
               "a"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"(", 
                  RowBox[{"a", " ", "b", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"dirty", "[", 
                    RowBox[{"[", 
                    RowBox[{"52", ";;", "96"}], "]"}], "]"}], "/", 
                    RowBox[{"clean", "[", 
                    RowBox[{"[", 
                    RowBox[{"52", ";;", "96"}], "]"}], "]"}]}], ")"}]}], 
                  ")"}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], ")"}], "/.", 
           "vesfithigher"}], ")"}], "-", 
         RowBox[{"production", "[", 
          RowBox[{"[", 
           RowBox[{"52", ";;", "96"}], "]"}], "]"}]}], ")"}], "^", "2"}], 
      "]"}], "/", 
     RowBox[{"Length", "[", 
      RowBox[{"clean", "[", 
       RowBox[{"[", 
        RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesMSElowerTOTAL", "=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"clean", " ", "vestfp", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"dirty", "/", "clean"}], ")"}], "^", "a"}], ")"}], 
             " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"(", 
                  RowBox[{"a", " ", "b", " ", 
                   RowBox[{"(", 
                    RowBox[{"dirty", "/", "clean"}], ")"}]}], ")"}]}], ")"}], 
               "^", 
               RowBox[{"(", 
                RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], ")"}], "/.", 
           "vesfitlower"}], ")"}], "-", "production"}], ")"}], "^", "2"}], 
      "]"}], "/", 
     RowBox[{"Length", "[", "clean", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vesMSElowerHIGHER", "=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"clean", "[", 
              RowBox[{"[", 
               RowBox[{"52", ";;", "96"}], "]"}], "]"}], " ", "vestfp", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"dirty", "[", 
                  RowBox[{"[", 
                   RowBox[{"52", ";;", "96"}], "]"}], "]"}], "/", 
                 RowBox[{"clean", "[", 
                  RowBox[{"[", 
                   RowBox[{"52", ";;", "96"}], "]"}], "]"}]}], ")"}], "^", 
               "a"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"(", 
                  RowBox[{"a", " ", "b", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"dirty", "[", 
                    RowBox[{"[", 
                    RowBox[{"52", ";;", "96"}], "]"}], "]"}], "/", 
                    RowBox[{"clean", "[", 
                    RowBox[{"[", 
                    RowBox[{"52", ";;", "96"}], "]"}], "]"}]}], ")"}]}], 
                  ")"}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"1", "-", "a"}], ")"}]}], ")"}]}], ")"}], "/.", 
           "vesfitlower"}], ")"}], "-", 
         RowBox[{"production", "[", 
          RowBox[{"[", 
           RowBox[{"52", ";;", "96"}], "]"}], "]"}]}], ")"}], "^", "2"}], 
      "]"}], "/", 
     RowBox[{"Length", "[", 
      RowBox[{"clean", "[", 
       RowBox[{"[", 
        RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7999264350589046`*^9, 3.7999264762132587`*^9}, {
   3.7999265504955072`*^9, 3.7999266038225574`*^9}, 3.799926694837763*^9, {
   3.79992676051952*^9, 3.7999267766964445`*^9}, {3.799926889630904*^9, 
   3.7999268963192873`*^9}, {3.799926964320176*^9, 3.7999269853213778`*^9}, {
   3.799927024748633*^9, 3.799927050026078*^9}, {3.799927465411837*^9, 
   3.7999274969526415`*^9}, {3.7999275399250994`*^9, 
   3.7999275565830517`*^9}, {3.799927600586569*^9, 3.7999276274391046`*^9}, {
   3.7999306368798947`*^9, 3.7999306591711698`*^9}, 3.7999316789965005`*^9, {
   3.800113360506733*^9, 3.8001133647649765`*^9}, {3.8001133973558407`*^9, 
   3.80011369980414*^9}, {3.800114053424366*^9, 3.800114056889564*^9}, {
   3.800347475719901*^9, 3.8003474936989293`*^9}, {3.803374526942834*^9, 
   3.8033745554024615`*^9}},ExpressionUUID->"ac64820f-7b54-4053-bed4-\
b3afd5826148"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"output", " ", "deviation"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"resultsMSE", "=", 
    RowBox[{"MatrixForm", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\>\"", ",", "\"\<MSE-full\>\"", ",", "\"\<MSE-lower\>\"", ",", 
         "\"\<MSE-higher\>\"", ",", "\"\<\>\"", ",", 
         "\"\<MSE-\!\(\*SubscriptBox[\(full\), \(lower\)]\)\>\"", ",", 
         "\"\<MSE-\!\(\*SubscriptBox[\(higher\), \(lower\)]\)\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<CES\>\"", ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMSE", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMSElower", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMSEhigher", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", "\"\<    \>\"", 
         ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMSElowerTOTAL", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMSElowerHIGHER", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<VES\>\"", ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMSE", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMSElower", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMSEhigher", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", "\"\<    \>\"", 
         ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMSElowerTOTAL", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMSElowerHIGHER", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<\>\"", ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMSE", "<", "vesMSE"}], ",", "\"\<CES\>\"", ",", 
            "\"\<VES\>\""}], "]"}], "]"}], ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMSElower", "<", "vesMSElower"}], ",", "\"\<CES\>\"", 
            ",", "\"\<VES\>\""}], "]"}], "]"}], ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMSEhigher", "<", "vesMSEhigher"}], ",", "\"\<CES\>\"",
             ",", "\"\<VES\>\""}], "]"}], "]"}], ",", "\"\<    \>\"", ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMSElowerTOTAL", "<", "vesMSElowerTOTAL"}], ",", 
            "\"\<CES\>\"", ",", "\"\<VES\>\""}], "]"}], "]"}], ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMSElowerHIGHER", "<", "vesMSElowerHIGHER"}], ",", 
            "\"\<CES\>\"", ",", "\"\<VES\>\""}], "]"}], "]"}]}], "}"}]}], 
      "}"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQLa/4xeOU/xvHJyurA0D0nZqAEBD9ctmmUBA9eYZg
FIhuWO2bCKJVGj+kgWi2lUyzQDRj4spFIFrOfM4qEM0ptGo7iG46UXoAbK50
wDEQXSJUdBpET2KYdRFEf8qNuwSiZ1VO5D4NpGU+reIF0ZfOZCiDaAumYjA9
a8NObRDdOum5IYg+Jz7TEkRLBGbYguhnDxe4g2j2CyWJYP6tolQQ7cJ6GUxv
FEvJB9EqhVPLQPS2d9kpZ4D0tR/vwfTWMPcWlQCgvjUrV4PoN29cNoJo/6ob
20G01cTGfSC6gvk9mF7Ob6HlDKTDli/TBtFJczbnTQPSZZ+FC0A0AGozrpY=

  "],ExpressionUUID->"bea1ea9d-d272-4227-b327-4ca568c95db0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"clean", " ", "deviation"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"resultsMAE", "=", 
    RowBox[{"MatrixForm", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\>\"", ",", "\"\<MAE-full\>\"", ",", "\"\<MAE-lower\>\"", ",", 
         "\"\<MAE-higher\>\"", ",", "\"\<\>\"", ",", 
         "\"\<MAE-\!\(\*SubscriptBox[\(full\), \(lower\)]\)\>\"", ",", 
         "\"\<MAE-\!\(\*SubscriptBox[\(higher\), \(lower\)]\)\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<CES\>\"", ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMAE", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMAElower", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMAEhigher", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", "\"\<    \>\"", 
         ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMAElowerTOTAL", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"cesMAElowerHigher", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<VES\>\"", ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMAE", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMAElower", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMAEhigher", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", "\"\<    \>\"", 
         ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMAElowerTOTAL", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{"NumberForm", "[", 
          RowBox[{"vesMAElowerHIGHER", ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<\>\"", ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMAE", "<", "vesMAE"}], ",", "\"\<CES\>\"", ",", 
            "\"\<VES\>\""}], "]"}], "]"}], ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMAElower", "<", "vesMAElower"}], ",", "\"\<CES\>\"", 
            ",", "\"\<VES\>\""}], "]"}], "]"}], ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMAEhigher", "<", "vesMAEhigher"}], ",", "\"\<CES\>\"",
             ",", "\"\<VES\>\""}], "]"}], "]"}], ",", "\"\<    \>\"", ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMAElowerTOTAL", "<", "vesMAElowerTOTAL"}], ",", 
            "\"\<CES\>\"", ",", "\"\<VES\>\""}], "]"}], "]"}], ",", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"cesMAElowerHigher", "<", "vesMAElowerTOTAL"}], ",", 
            "\"\<CES\>\"", ",", "\"\<VES\>\""}], "]"}], "]"}]}], "}"}]}], 
      "}"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.8001146326334944`*^9, 3.8001146709196844`*^9}, {
   3.8001147253427973`*^9, 3.8001147852072215`*^9}, {3.800114839853347*^9, 
   3.800114957956102*^9}, {3.8001769497038713`*^9, 3.800176973245904*^9}, 
   3.8033744071279807`*^9, {3.8033753986326914`*^9, 
   3.803375510409085*^9}},ExpressionUUID->"3e8e3cb1-7f92-422c-93bc-\
20dccc9df90d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sumCES", "=", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<CES-full\>\"", ",", "\"\<CES-lower\>\"", ",", 
        "\"\<CES-higher\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<A\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cesfitfull", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cesfitlower", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cesfithigher", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<\[Alpha]\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cesfitfull", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cesfitlower", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cesfithigher", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<\[Sigma]\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"cesfitfull", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "2"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"cesfitlower", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "2"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"cesfithigher", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "2"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<MSE\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{"cesMSE", ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{"cesMSElower", ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{"cesMSEhigher", ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.800175232231333*^9, 3.8001754179095964`*^9}, {
   3.8001756606729784`*^9, 3.8001758118732185`*^9}, {3.800175921671374*^9, 
   3.8001759405544004`*^9}, {3.800176098033627*^9, 3.8001761273716707`*^9}, {
   3.800176162919724*^9, 3.8001761706807346`*^9}, 
   3.8001770011679435`*^9},ExpressionUUID->"6b8f0a14-715d-4c98-80c8-\
6dbfc0eb83c8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sumVES", "=", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<VES-full\>\"", ",", "\"\<VES-lower\>\"", ",", 
        "\"\<VES-higher\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<A\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vesfitfull", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vesfitlower", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vesfithigher", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<a\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vesfitfull", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vesfitlower", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vesfithigher", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<b\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vesfitfull", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vesfitlower", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vesfithigher", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<\!\(\*OverscriptBox[\(\[Sigma]\), \(_\)]\)\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"Max", "[", 
             RowBox[{"dirty", "/", "clean"}], "]"}], " ", 
            RowBox[{
             RowBox[{"vesfitfull", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "2"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"Max", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"dirty", "/", "clean"}], ")"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ";;", "51"}], "]"}], "]"}], "]"}], " ", 
            RowBox[{
             RowBox[{"vesfitlower", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "2"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"Max", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"dirty", "/", "clean"}], ")"}], "[", 
              RowBox[{"[", 
               RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}], " ", 
            RowBox[{
             RowBox[{"vesfithigher", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "2"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<\!\(\*UnderscriptBox[\(\[Sigma]\), \(_\)]\)\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"Min", "[", 
             RowBox[{"dirty", "/", "clean"}], "]"}], " ", 
            RowBox[{
             RowBox[{"vesfitfull", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "2"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"Min", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"dirty", "/", "clean"}], ")"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ";;", "51"}], "]"}], "]"}], "]"}], " ", 
            RowBox[{
             RowBox[{"vesfitlower", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "2"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"Min", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"dirty", "/", "clean"}], ")"}], "[", 
              RowBox[{"[", 
               RowBox[{"52", ";;", "96"}], "]"}], "]"}], "]"}], " ", 
            RowBox[{
             RowBox[{"vesfithigher", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "2"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<MSE\>\"", ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{"vesMSE", ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{"vesMSElower", ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"NumberForm", "[", 
         RowBox[{"vesMSEhigher", ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "3"}], "}"}]}], "]"}]}], "}"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.800175232231333*^9, 3.8001754179095964`*^9}, {
   3.8001756606729784`*^9, 3.8001758118732185`*^9}, {3.800175921671374*^9, 
   3.8001759405544004`*^9}, {3.800176098033627*^9, 3.8001761273716707`*^9}, {
   3.800176162919724*^9, 3.800176250501849*^9}, {3.8001762992909193`*^9, 
   3.8001763014409223`*^9}, {3.80017637028202*^9, 3.800176376887029*^9}, {
   3.800176563422305*^9, 3.8001766675994616`*^9}, {3.8001767060875177`*^9, 
   3.8001768036486645`*^9}, 3.8001768644177504`*^9, {3.8001768953597946`*^9, 
   3.800176923196834*^9}, 3.800177008753954*^9, {3.8001787918465433`*^9, 
   3.8001788139405746`*^9}, {3.8001790245668707`*^9, 3.800179116105*^9}, {
   3.800179153144052*^9, 3.8001791619750643`*^9}, {3.80017920134912*^9, 
   3.8001792076541286`*^9}, {3.800347475795905*^9, 
   3.8003474937059298`*^9}},ExpressionUUID->"7e4ec0fc-2f08-4f77-a9a0-\
d6f83acea0cc"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 5},ExpressionUUID->"a68fac72-9111-46cd-8826-0ecea8afa5b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Results", "Section",
 CellChangeTimes->{{3.803376075987434*^9, 
  3.8033760845209217`*^9}},ExpressionUUID->"76eecda0-d288-4c36-a2db-\
6c246bf11e16"],

Cell[BoxData[{"supergrid", "\[IndentingNewLine]", "resultsMSE", "\
\[IndentingNewLine]", "resultsMAE", "\[IndentingNewLine]", "sumCES", "\
\[IndentingNewLine]", "sumVES"}], "Input",
 CellChangeTimes->{{3.8001770168719664`*^9, 3.8001770294189854`*^9}, {
  3.8001795630406513`*^9, 3.8001795677116575`*^9}, {3.8001798853219156`*^9, 
  3.800179889660164*^9}},ExpressionUUID->"234d8925-921c-4af4-aac9-\
a20cd70c5f28"]
}, Open  ]]
},
AutoGeneratedPackage->None,
Evaluator->"Local 4",
WindowSize->{667, 670},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1265, 21, 201, "Text", "ExpressionUUID" -> \
"55a23ab3-7ffd-4b2e-88c3-247df1e90ec2"],
Cell[1825, 43, 734, 11, 30, "Input", "ExpressionUUID" -> \
"a0e9781a-e8ad-45fa-9502-31e738a47761"],
Cell[2562, 56, 1359, 33, 164, "Input", "ExpressionUUID" -> \
"b763e8e0-f4c8-479a-972f-7583c1c19ff3"],
Cell[3924, 91, 329, 10, 10, "Text", "ExpressionUUID" -> \
"2a881bf7-361e-4e5b-b511-e5cf2a8cdceb"],
Cell[CellGroupData[{
Cell[4278, 105, 211, 3, 70, "Section", "ExpressionUUID" -> \
"c7d655b8-4f7d-48ca-a58d-5b527818a0db"],
Cell[4492, 110, 638, 12, 68, "Text", "ExpressionUUID" -> \
"d653f9ab-8db0-4ed8-9898-53f3c5313b67"],
Cell[5133, 124, 5716, 122, 449, "Input", "ExpressionUUID" -> \
"f90b28a5-c1de-4c06-8dc6-a3fe2bbbbaa7"],
Cell[10852, 248, 329, 10, 10, "Text", "ExpressionUUID" -> \
"a9773362-a590-47b8-82e7-42ca58bc953e"],
Cell[11184, 260, 1278, 31, 69, "Input", "ExpressionUUID" -> \
"8c35edf3-3828-451c-92fe-772f084988ac"],
Cell[12465, 293, 2313, 36, 30, "Input", "ExpressionUUID" -> \
"b586f43f-7a3f-40ec-aca6-0cd207bfcaac"],
Cell[14781, 331, 329, 10, 10, "Text", "ExpressionUUID" -> \
"eb23d589-af86-4077-ba37-2ef588f4b5db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15147, 346, 152, 3, 70, "Section", "ExpressionUUID" -> \
"c7aeee74-f5a2-4672-a22f-7571c97510ed"],
Cell[15302, 351, 24329, 564, 1456, "Input", "ExpressionUUID" -> \
"71ce0470-6696-4522-a223-70d43d888ab2"],
Cell[39634, 917, 329, 10, 10, "Text", "ExpressionUUID" -> \
"560dfafc-657c-49d5-876d-3b06d2838198"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40000, 932, 251, 4, 111, "Section", "ExpressionUUID" -> \
"1cfde691-f46b-4494-b2ac-d3acaf482ba0"],
Cell[40254, 938, 11450, 349, 905, "Input", "ExpressionUUID" -> \
"daef3f0d-3e25-4a4a-b8e4-5a620b176787"],
Cell[51707, 1289, 2800, 86, 183, "Input", "ExpressionUUID" -> \
"bd60c39c-8b4a-425b-a45e-0550acdb95c5"],
Cell[54510, 1377, 388, 11, 50, "Input", "ExpressionUUID" -> \
"e283d113-40d2-4fe2-90be-13d8361a97bb"],
Cell[54901, 1390, 14996, 419, 1152, "Input", "ExpressionUUID" -> \
"ac64820f-7b54-4053-bed4-b3afd5826148"],
Cell[69900, 1811, 4090, 98, 355, "Input", "ExpressionUUID" -> \
"bea1ea9d-d272-4227-b327-4ca568c95db0"],
Cell[73993, 1911, 3982, 95, 355, "Input", "ExpressionUUID" -> \
"3e8e3cb1-7f92-422c-93bc-20dccc9df90d"],
Cell[77978, 2008, 4376, 117, 240, "Input", "ExpressionUUID" -> \
"6b8f0a14-715d-4c98-80c8-6dbfc0eb83c8"],
Cell[82357, 2127, 8060, 207, 411, "Input", "ExpressionUUID" -> \
"7e4ec0fc-2f08-4f77-a9a0-d6f83acea0cc"],
Cell[90420, 2336, 329, 10, 10, "Text", "ExpressionUUID" -> \
"a68fac72-9111-46cd-8826-0ecea8afa5b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90786, 2351, 154, 3, 70, "Section", "ExpressionUUID" -> \
"76eecda0-d288-4c36-a2db-6c246bf11e16"],
Cell[90943, 2356, 412, 6, 107, "Input", "ExpressionUUID" -> \
"234d8925-921c-4af4-aac9-a20cd70c5f28"]
}, Open  ]]
}
]
*)

